home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mmatch / hsentry.frm < prev    next >
Text File  |  1995-09-06  |  2KB  |  65 lines
  1. VERSION 2.00
  2. Begin Form HSENTRY 
  3.    BackColor       =   &H00808080&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "New High Score"
  6.    ClientHeight    =   4230
  7.    ClientLeft      =   2370
  8.    ClientTop       =   2280
  9.    ClientWidth     =   6795
  10.    Height          =   4635
  11.    Left            =   2310
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   4230
  15.    ScaleWidth      =   6795
  16.    Top             =   1935
  17.    Width           =   6915
  18.    Begin PictureBox Mh3d1 
  19.       BackColor       =   &H000000FF&
  20.       Height          =   1000
  21.       Left            =   0
  22.       ScaleHeight     =   975
  23.       ScaleWidth      =   975
  24.       TabIndex        =   0
  25.       Top             =   0
  26.       Width           =   1000
  27.       Begin CommandButton Command1 
  28.          Caption         =   "&OK"
  29.          Default         =   -1  'True
  30.          Height          =   588
  31.          Left            =   2400
  32.          TabIndex        =   1
  33.          Top             =   2304
  34.          Width           =   1164
  35.       End
  36.       Begin PictureBox Mh3d2 
  37.          BackColor       =   &H000000FF&
  38.          Height          =   1000
  39.          Left            =   0
  40.          ScaleHeight     =   975
  41.          ScaleWidth      =   975
  42.          TabIndex        =   2
  43.          Top             =   0
  44.          Width           =   1000
  45.          Begin PictureBox WINNERNAME 
  46.             BackColor       =   &H000000FF&
  47.             Height          =   1000
  48.             Left            =   0
  49.             ScaleHeight     =   975
  50.             ScaleWidth      =   975
  51.             TabIndex        =   3
  52.             Top             =   0
  53.             Width           =   1000
  54.          End
  55.       End
  56.    End
  57. End
  58.  
  59. Sub Command1_Click ()
  60.     SCORE.WINNER = " " + WINNERNAME.TEXT
  61.     SCORE.DMY = " " + Date$
  62.     Unload HSENTRY
  63. End Sub
  64.  
  65.